(describe-variable): Don't call substitute-command-keys.

diff --git a/lisp/help.el b/lisp/help.el
index e416fd3d88764006ef25a237078611c59cd79d53..68c18ecd48a6f3e44189b829d74612e156929eb9 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -627,9 +627,7 @@ Returns the documentation as a string, also."
     (princ "Documentation:")
     (terpri)
     (let ((doc (documentation-property variable 'variable-documentation)))
-      (if doc
-         (princ (substitute-command-keys doc))
-       (princ "not documented as a variable.")))
+      (princ (or doc "not documented as a variable.")))
     (print-help-return-message)
     (save-excursion
       (set-buffer standard-output)